home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / com_and3.zip / CONALARM.CMD < prev    next >
OS/2 REXX Batch file  |  1989-10-09  |  649b  |  22 lines
  1. ; ----- CONALARM: Alarm for conference areas
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script waits for something received and then
  4. ;    sounds the alarm.  It is useful when in an empty conference
  5. ;    area, waiting for someone else to arrive.
  6. ; ----------------------------------------------------------------
  7. ;
  8. ;    Initialize
  9. ;
  10. SET ALARM ON
  11. SET ATIME 30
  12. Legend " Conference alarm armed..."
  13. ;
  14. ;    Wait for something
  15. ;
  16. Loop:
  17.    rget s9 80 30   ; Get 80 chars - wait up to 30 secs for them
  18.    if failure       ; IF nothing received
  19.       goto loop    ; Try again
  20.       endif
  21.    alarm       ; Ring the bell
  22.